home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / intuition / GadgetTypes.st < prev    next >
Text File  |  2001-02-28  |  3KB  |  69 lines
  1. " ------------------------------------------------------------------- "
  2. " GadgetTypes Class is a Singleton class that allows the user to      "
  3. " reference Gadget Types without having to remember their actual      "
  4. " hexadecimal values.                                                 "
  5. " ------------------------------------------------------------------- "
  6.  
  7. Class GadgetTypes :Dictionary ! uniqueInstance !
  8. [
  9.    privateNew ! newinstance !
  10.      newinstance <- super new.
  11.  
  12.      ^ newinstance
  13. |
  14.    new
  15.      ^ (self privateSetup)
  16. |
  17.    privateSetup
  18.      (uniqueInstance isNil)
  19.        ifTrue: [uniqueInstance <- self privateNew.
  20.  
  21.                 self at: #GTYP_GTYPEMASK    put: 2r0111.  "For masking."
  22.  
  23.                 self at: #GTYP_BOOLGADGET   put: 1.
  24.                 self at: #GTYP_GADGET0002   put: 2.
  25.                 self at: #GTYP_PROPGADGET   put: 3.
  26.                 self at: #GTYP_STRGADGET    put: 4.
  27.                 self at: #GTYP_CUSTOMGADGET put: 5.
  28.  
  29.                 self at: #GTYP_SYSTYPEMASK  put: 16r00F0. "For masking."
  30.                 self at: #GTYP_SIZING       put: 16r0010.
  31.                 self at: #GTYP_WDRAGGING    put: 16r0020.
  32.                 self at: #GTYP_SDRAGGING    put: 16r0030.
  33.                 self at: #GTYP_WDEPTH       put: 16r0040.
  34.                 self at: #GTYP_SDEPTH       put: 16r0050.
  35.                 self at: #GTYP_WZOOM        put: 16r0060.
  36.                 self at: #GTYP_SUNUSED      put: 16r0070.
  37.                 self at: #GTYP_CLOSE        put: 16r0080.
  38.  
  39.                 "All Gadget Global Type flags (padded): "
  40.  
  41.                 self at: #GTYP_GADGETTYPE   put: 16rFC00. 
  42.  
  43.                 self at: #GTYP_REQGADGET    put: 16r1000.
  44.                 self at: #GTYP_GZZGADGET    put: 16r2000.
  45.                 self at: #GTYP_SCRGADGET    put: 16r4000.
  46.                 self at: #GTYP_SYSGADGET    put: 16r8000.
  47.  
  48.                 "GadTools uses a lot of different types:"
  49.                 self at: #GENERIC_KIND      put: 0.
  50.                 self at: #BUTTON_KIND        put: 1.
  51.                 self at: #CHECKBOX_KIND        put: 2.
  52.                 self at: #INTEGER_KIND        put: 3.
  53.                 self at: #LISTVIEW_KIND        put: 4.
  54.                 self at: #MX_KIND           put: 5.
  55.                 self at: #NUMBER_KIND        put: 6.
  56.                 self at: #CYCLE_KIND        put: 7.
  57.                 self at: #PALETTE_KIND        put: 8.
  58.                 self at: #SCROLLER_KIND        put: 9.
  59.  
  60.                 "Kind number 10 is reserved."
  61.  
  62.                 self at: #SLIDER_KIND        put: 11.
  63.                 self at: #STRING_KIND        put: 12.
  64.                 self at: #TEXT_KIND        put: 13.
  65.                ].
  66.  
  67.      ^ self "uniqueInstance??"
  68. ]
  69.